% V20210224 - 7.1 GW_USE_THEME_CUSTO_ONCE INCLUDE "GW.bas" p = GW_NEW_PAGE() % Prepare title bar string. Title$ = GW_ADD_BAR_TITLE$("USE_THEME_CUSTO_ONCE Example") % Add title to page. GW_ADD_TITLEBAR(p,Title$) % Collect parameters into a string. myCusto$ = "color=b mini" % Activate a 1-time customization. GW_USE_THEME_CUSTO_ONCE(myCusto$) % This control WILL be customized with myCusto$. GW_ADD_BUTTON(p, "Customized Button", "") % This control will NOT be customized. bt2 = GW_ADD_BUTTON(p, "NOT Customized Button", "") % Show the page. GW_RENDER(p) DO % Wait for user action. r$ = GW_WAIT_ACTION$() % Place here any necessary code to process user actions. % Example feedback. POPUP r$ % End when BACK key is pressed. UNTIL r$ = "BACK" END "End of USE_THEME_CUSTO_ONCE example."